100 POKE53281,0:POKE53280,0:PRINT"[147][158]";
110 C$="12121515010115151212":CC=-1
120 FORI=1TO12:PRINT"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:NEXT
130 FORI=1TO12:PRINT"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:NEXT
140 PRINT"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
150 POKE2023,PEEK(1083):POKE56295,PEEK(56255)
160 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
170 POKE214,5:PRINT:FORI=1TO10:PRINTTAB(4)"[221][152]                              [146][158][221]"
180 NEXT:POKE214,6:POKE211,4:SYS58732
190 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
200 PRINTTAB(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]"
210 POKE214,16:POKE211,4:SYS58732
220 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
230 PRINTTAB(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":POKE214,8:PRINT
240 A$="[194][160][193][160][211][160][201][160][195]   4":GOSUB300
250 A$="BY [210]ICK [206]ASH":GOSUB300
260 A$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#65":GOSUB300
270 A$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":GOSUB300
280 A$="([195]) 1989 [211]OFTDISK":GOSUB300
290 GOTO310
300 PRINTSPC(20-LEN(A$)/2)"[152]"A$:RETURN
310 GOSUB510
330 POKE214,19:POKE211,4:SYS58732
340 PRINT"1. [211][197][197][160][194][193][211][201][195][160]4 [196][197][205][207]
345 [153]"2. (null)(null)ATNSTR$CLOSEPEEKATN(null)RIGHT$LENCLOSE4
350 PRINT"3. [208][210][201][206][212][160][194][193][211][201][195][160]4 [205][193][206][213][193][204]
360 [153]"4. (null)VAL(null)(null)(null)(null)CLOSE(null)(null)CLOSE(null)(null)ATNSTR$(null)(null)ATN(null)
370 PRINT""
380 GETA$:IFA$<"1"ORA$>"4"THEN380
381 C=1024+(18+VAL(A$))*40+5:FORI=CTOC+30:POKEI,PEEK(I)-128:NEXT
382 IFA$="1"ORA$="2"THENGOSUB530:IFY$="N"THEN310
390 ONVAL(A$)GOTO400,410,420,430
400 F$="BASIC 4 DEMO":GOTO440
410 F$="BASIC 4":GOTO440
420 F$="MANUAL MAKER":GOTO440
430 F$="HELLO CONNECT":GOTO440
440 OPEN15,8,15,"R0:"+F$+"="+F$:INPUT#15,ER:CLOSE15
450 IFER<>63THENEND
460 PRINT"[147][144]LOAD"CHR$(34)F$CHR$(34)",8"
470 POKE631,13:POKE632,82:POKE633,213:POKE634,13:POKE198,4:END
510 POKE214,18:SYS58732:FORI=1TO6
520 PRINT"[159]                                      ":NEXT:PRINT"":RETURN
530 GOSUB510:POKE214,18:PRINT:PRINTTAB(10)"[207]NCE RUN, THIS OPTION"
540 PRINTTAB(8)"WON'T RETURN TO [204][207][193][196][211][212][193][210]."
550 PRINTTAB(13)"[195]ONTINUE?  ([217]/[206])"
560 GETY$:IFY$<>"Y"ANDY$<>"N"THEN560
570 RETURN
10000 OPEN15,8,15,"S0:BASIC 4 BOOT":SAVE"BASIC 4 BOOT",8:END